- if it is a numeric value it will just get dropped from the graph and you will see a warning
- it is categorical you will see it on the graph and will need to filter to remove the NA category
icecream <-tibble(flavor =
rep(c("chocolate", "vanilla", NA,"chocolate", "vanilla"), 8))
icecream1 <- ggplot(icecream, aes(x = flavor)) + geom_bar() +
theme(text=element_text(size=24))
icecream2 <- icecream %>% drop_na(flavor) %>%
ggplot( aes(x = flavor)) + geom_bar() +
theme(text=element_text(size=24))

## Sometimes we have many lines and it is hard to see what is happening{.codesmall}
er_visits_9 <- er_CO_county %>%
filter(county %in% c("Denver", "Weld", "Pueblo", "Jackson",
"San Juan", "Mesa", "Jefferson", "Larimer", "Statewide"))
lots_of_lines <- ggplot(er_visits_9, aes(x = year,
y = rate,
color = county)) +
geom_line()
lots_of_lines
